function PatchData = GeoPatMakeBlock(VertexData)

Index_Patch = ...
    [1,2,5,3;
    1,3,6,4;
    1,4,7,2;
    4,7,8,6;
    2,5,8,7;
    3,6,8,5];

n_pat = 6;

for i_pat=1:n_pat
    
    XData = VertexData(Index_Patch(i_pat,:),1);
    YData = VertexData(Index_Patch(i_pat,:),2);
    ZData = VertexData(Index_Patch(i_pat,:),3);
    
    PatchData(:,:,i_pat) = [XData,YData,ZData];
end